Gruppe
Dialog
Problem
Über Schaltfläche soll die Hintergrundfarbe eines Image-Objekts festgelegt werden.
StandardModule: Modul1
Sub CallForm()
frmColor.Show
End Sub
ClassModule: frmColor
Private Sub cmdOK_Click()
Zeile = False
If Zeile = True Then
Image1.BackColor = HC000&
Else
Image1.BackColor = &HFF&
End If
End Sub
Private Sub cmdCancel_Click()
Unload Me
End Sub