Sub Form_Load()
kunde$ = "Lizenznehmer: DER TISCHLER Iserlohn"
Lizenz$ = "Lizenznummer: 1214"
'Picture1.Picture = LoadPicture("c:\bildkopie\pic00049.jpg")
xpi# = 4 * Atn(1)
xy# = xpi# / 180
xz# = 180 / xpi#
End Sub
Private Sub Text1_Change(Index As Integer)
If bNoChangeEvent Then Exit Sub
On Error Resume Next
  xa# = CCur(Text1(0).Text)
  xh# = CCur(Text1(1).Text)
If xa# > 0 And xh# > 0 Then berechnen
 
Private Sub Command2_Click()
Call LöscheAlleTextFelder(Form1)
Text1(0).SetFocus
End Sub
Sub LöscheAlleTextFelder(frmForm As Form)
   Dim ctlControl As Object
  bNoChangeEvent = True
  For Each ctlControl In frmForm.Controls
    Select Case TypeName(ctlControl)
      Case "TextBox"
        ctlControl.Text = ""
      Case "ComboBox"
        ctlControl.Text = ""
        ctlControl.ListIndex = -1
    End Select
  Next
  bNoChangeEvent = False
End Sub