Option Explicit
 
Private Sub Form_Load()
  Dim KoordinatenAlt(2)
  Dim k(2)
 
  Call Send(0, 2, Str(k(0)) + " " + Str(k(1)) + " 0 move ", 0)
  KoordinatenAlt(0) = k(0)
  KoordinatenAlt(1) = k(1)
  frmPosition.Timer1.Enabled = True
  Call Send(0, 2, "0 0 0 setpos ", 0)
End Sub
 
Private Sub Send(Wert1 As Long, Wert2 As Long, Text As String, Wert3 As Long)
  MsgBox Wert1 & Wert2 & Wert3, , Text
End Sub