Option Explicit
Dim a As Single, b As Single
 
Private Sub Command1_Click()
a = Text1
b = Text2
Picture1.Line -(a, b)
End Sub
 
Private Sub Form_Load()
Form1.Show
Picture1.Scale (-5, 10)-(10, -5)
Picture1.Line (-5, 0)-(10, 0)
Picture1.Line (0, -5)-(0, 10)
Picture1.CurrentX = 0
Picture1.CurrentY = 0
End Sub

MfG Frosch

Die Titanic wurde von Profis gebaut...die Arche Noah von einem Amateur - So muss man das sehen!