Option Explicit
Private Sub cmdLoadBitmap_Click()
If Val(txtBitmaps) = 0 Then
MsgBox "Enter a number between 1 and 9."
txtBitmaps.SetFocus
Exit Sub
End If
Image2.Picture = imgBitmaps.ListImages(Val(txtBitmaps)).Picture
End Sub
Private Sub cmdLoadIcon_Click()
If Val(txtIcons) = 0 Then
MsgBox "Enter a number between 1 and 9."
txtIcons.SetFocus
Exit Sub
End If
Image1.Picture = imgIcons.ListImages(Val(txtIcons)).Picture
End Sub
No comments:
Post a Comment