Private Sub btnHelpGear1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles btnHelpGear1.Click
Dim frmHelp As New frmHelp
        frmHelp.HelpName = btnHelpGear1.Name
        frmHelp.Show()
  End Sub
Private Sub btnHelpDaten_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles btnHelpDaten.Click
        Dim frmHelp As New frmHelp
        frmHelp.HelpNo = btnHelpDaten.Name
        frmHelp.Show()
    End Sub