Optionsbutton in Kombination mit einem Bild
Mark
Private Sub optRegen_Click()
With Image1
.Picture = LoadPicture("C:\Temp\regen.jpg")
.Height = 80
.Width = 200
End With
End Sub
Private Sub optSonne_Click()
With Image1
.Picture = LoadPicture("C:\Temp\sonne.jpg")
.Height = 100
.Width = 150
End With
End Sub
Private Sub UserForm_Initialize()
optSonne.Value = True
End Sub