Do UserControlu:
Public Event CheckedChanged(ByVal checked As Boolean)
Private Sub Button1_Click() Handles Button1.Click
RaiseEvent CheckedChanged(True)
End Sub
Po kliknutí na Button se vyvolá událost s parametrem, jenž říká, že bylo zaškrtnuto. Ve Vašem Formu pak:
Private Sub UserControl1_CheckedChanged(ByVal checked As Boolean) Handles UserControl1.CheckedChanged
Select Case checked
Case True
MsgBox("Bylo zaškrtnuto!")
Case Else
MsgBox("Nebylo zaškrtnuto!")
End Selec
End Sub
|