Private Sub cmdsave_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles cmdsave.Click
        Me.flsave()
    End Sub
Private Sub DruckenToolStripButton1_Click(ByVal sender As System.Object, ByVal _
  e As System.EventArgs) Handles DruckenToolStripButton1.Click
        Me.cmdclear_Click()
    End Sub