Private Sub Command2_Click()
       ' Noch verbessern WICHTIG
Call LöscheAlleTextFelder(Form1)
Text1(0).SetFocus
End Sub
Sub LöscheAlleTextFelder(frmForm As Form)
        Dim ctlControl As Object
        On Error Resume Next
        For Each ctlControl In frmForm.Controls
                ctlControl.Text = ""
                ctlControl.ListIndex = -1
                DoEvents
        Next ctlControl
   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()
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)
On Error Resume Next
  xa# = CCur(Text1(0).Text)
  xh# = CCur(Text1(1).Text)
If xa# > 0 And xh# > 0 Then berechnung
End Sub