<code><font color=green>' Allgemein Teil der Form
' sevQuickInfo-Klasse referenzieren</font>
Dim sevQI As New sevQuickInfo.clsQuickInfo
 
<font color=green>' Im Form_Load Event werden die mehrzeiligen QuickInfos 
' zugewiesen</font>
Private Sub Form_Load()
  With sevQI
    <font color=green>' sevQuickInfo initialisieren</font>
    .Init Me.hwnd, App.hInstance
 
    <font color=green>' Controls der sevQuickInfo-Klasse hinzufügen</font>
    .ControlAdd picLogo, "sevQuickInfo ActiveX-DLL" & vbCrLf & vbCrLf & _
      "Besuchen Sie uns im Internet unter:" & vbCrLf & "http://www.tools4vb.de"
    .ControlAdd picColor(0), "Hintergrundfarbe wählen"
    .ControlAdd picColor(1), "Vordergrundfarbe wählen"
  End With
End Sub</code>