Private Sub Command1_Click()
If Form1.Icon = LoadPicture("C:\Icon\smile.ico") Then
MsgBox "Smile Icon gesetzt"
Else
MsgBox "Kein Smile Icon gesetztl"
End If
End Sub
Private Sub Command2_Click()
Form1.Icon = LoadPicture("C:\Icon\had.ico")
End Sub
Private Sub Command3_Click()
Form1.Icon = LoadPicture("C:\Icon\smile.ico")
End Sub