Private Sub MenuStrip1_MenuClicked(Sender As Object, e As EventArgs) _
      Handles SaveToolStripMenuItem.Click, ReloadToolStripMenuItem.Click, _
      TestToolStripMenuItem.Click
      Select Case True
         Case Sender Is SaveToolStripMenuItem
            TestDataDts.Save(Me)
         Case Sender Is ReloadToolStripMenuItem
            TestDataDts.Fill()
         Case Sender Is TestToolStripMenuItem
'TestCode
      End Select
 
   End Sub

(Rechtschreibfehler urheberrechtlich geschützt)