Public Class frmMain
  Inherits Form

  Private frmMain As Form
  Private txtBox As TextBox
  Private lblHelp As Label
  Private WithEvents btnButton As Button
  Private helpProvider1 As HelpProvider

  <STAThread()> _
  Shared Sub Main()
    Application.Run(New frmMain)
  End Sub

  Public Sub New()
    Me.txtBox = New TextBox
    Me.lblHelp = New Label
    Me.btnButton = New Button

    Me.helpProvider1 = New HelpProvider
    With helpProvider1
      .SetHelpString(Me.txtBox, "Dieses ist eine TextBox, " & _
            "in der man Text ein- und ausgeben kann.")
      .SetShowHelp(Me.txtBox, True)
      .SetHelpString(Me.lblHelp, "Dieses ist ein Label, in  " & _
            "dem ein erklärender Text ausgeben wird.")
      .SetShowHelp(Me.lblHelp, True)
      .SetHelpString(Me.btnButton, "Dieses ist ein Button,  " & _
            "den man drücken kann, um die Applikation zu beenden.")
      .SetShowHelp(Me.btnButton, True)

      .HelpNamespace = "mspaint.chm"
    End With

    With lblHelp
      .Location = New Point(20, 70)
      .Size = New Size(272, 72)
      .Text = "Klicke auf den Hilfe-Button [?] in der  " & _
            "Titelleiste, dann klicke auf ein " & _
            "Steuerelement, um den Hilfe-Tooltipp zu sehen. " & _
            vbNewLine & _
            "Drücke Taste F1, um dir eine Hilfedatei anzeigen " & _
            "zu lassen (in diesem Beispiel: mspaint.chm)."
    End With

    With txtBox
      .Location = New Point(16, 24)
      .Size = New Size(264, 20)
      .Text = ""
    End With

    With btnButton
      .Location = New Point(180, 160)
      .Size = New Size(100, 25)
      .Text = "&Beenden"
    End With

    Me.Controls.AddRange(New Control() _
          {Me.lblHelp, Me.txtBox, Me.btnButton})
    Me.FormBorderStyle = FormBorderStyle.Sizable
    Me.StartPosition = FormStartPosition.CenterScreen
    Me.HelpButton = True
    Me.MaximizeBox = False
    Me.MinimizeBox = False
    Me.ClientSize = New Size(300, 200)
    Me.Text = "Help Provider Beispiel"
  End Sub

  Private Sub InitializeComponent()
    Dim resources As System.Resources.ResourceManager = _
          New System.Resources.ResourceManager(GetType(frmMain))

    Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
    Me.ClientSize = New System.Drawing.Size(292, 273)
    Me.Icon = CType(resources.GetObject("$this.Icon"), _
          System.Drawing.Icon)
    Me.Name = "frmMain"
  End Sub

  Private Sub btnButton_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles btnButton.Click
    Me.Close()
  End Sub
End Class