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
Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
   For Index = 0 To Text2.UBound
        Text2(Index).Text = ""
   Next Index
End Sub
Sub Form_Load()
Dim i As Integer
For i = 0 To Text1.UBound
 Text1(i).Text = ""
Next i
For i = 0 To Text2.UBound
 Text2(i).Text = ""
Next i
'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
End Sub