'Initialisierungsfunktion
Private Sub Form_Load()
    On Error Resume Next
    Me.Icon = LoadIcon(PIC_SETUP_ID)
    imgIcon.Picture = LoadIcon(ICO_SYSTEM_ID, vbicon)
End Sub

Public Sub Start()
 
    ....
 
    Show vbModal
end sub

Viel Spass,
R@lf