Picture1.Picture = LoadPicture ("MeinBild.bmp")

Const Bild1 = "C:\Bild1.bmp"
Const Bild2 = "C:\Bild2.bmp"
Const Bild3 = "C:\Bild3.bmp"
Dim AktuellesBild As Integer
 
Private Sub Command1_Click()
Select Case AktuellesBild
Case 0
Picture1.Picture = LoadPicture(Bild1)
AktuellesBild = 1
Case 1
Picture1.Picture = LoadPicture(Bild2)
AktuellesBild = 2
Case 2
Picture1.Picture = LoadPicture(Bild3)
AktuellesBild = 0
End Select
End Sub

Picture1.Picture = LoadResPicture(101, 0) ' Bitmap laden
Me.Icon = LoadResPicture(101, 1) ' Icon laden
Me.MousePointer = 99 ' "Eigener Corsor" einstellen
Me.MouseIcon = LoadResPicture(101, 2) 'Cursor laden