Option Explicit
Public WithEvents camcom As ConUnit
Public detection As DetectionArea
 
Private Sub Form_Load()
Set camcom = New ConUnit
Set detection = New DetectionArea
' Monitor/Video/TreeView separat ausschalten
' Beim Starten nur das Hauptfenster ShowConUnit
camcom.VideoVisible = False
camcom.MonitorVisible = False
camcom.TreeViewVisible = False
Call camcom.ShowConUnit(False)
End Sub
 
'Jetzt will ich die DetectionArea Klasse ansprechen
Private Sub Command1_Click()
detection.Index 1
detection.ColorActive = False
End Sub