. Initilize UserForm. Show. Show , , , , .
, . . . . . , , . , . , , , , , , , , , . . (. 2.27), .
2.27
Private Sub UserForm_Initialize()
'
'
OptionButton1.Value = True
' <Enter>
With CommandButton1
.Default = True
.ControlTipText = " " & Chr(13) & _
" "
End With
CommandButton2.ControlTipText = " "
On Error GoTo 0
With Image1
' ,
'
.BorderColor =.BackColor
' ,
.Picture = LoadPicture("VBA3_F1.BMP") End With
UserForm1.Show
Exit Sub
'
0:
If Err.Number Then
MsgBox " VBA3_F1.BMP." & Chr(13) &
" ", vbCritical, ""
End If
Resume Next
End Sub
VBA . , , , , . Hide. . CommandButton2 UserForm1 , .
Private Sub CommandButton2_Click()
UserForm1.Hide
End Sub
, , , , . - , . ., , , , Terminate () .