Option Explicit
 
Private Sub cmdClear_Click()
  PicDraw.Cls
End Sub
 
Private Sub cmddraw_Click()
PicDraw.ScaleMode = 3
  PicDraw.Cls
PicDraw.Width = Text2.Text
PicDraw.Height = Text1.Text
PicDraw.Refresh
End Sub
 
Private Sub Command1_Click()
Dim x As Double
Dim x2 As Double
Dim y As Double
Dim y2 As Double
 
y = PicDraw.ScaleHeight
y2 = PicDraw.ScaleHeight / 2
x = PicDraw.ScaleWidth
x2 = PicDraw.ScaleWidth / 2
 
  'Koordinatensystem zeichnen
  'ändert sich proportional zu größe der picturebox
 PicDraw.Line (x, y2)-(0, y2), vbBlue
  PicDraw.Line (x2, 0)-(x2, x), vbBlue
End Sub
 
Private Sub Form_Load()
Dim x As Double
Dim x2 As Double
Dim y As Double
Dim y2 As Double
Form1.ScaleMode = 3
y = PicDraw.ScaleHeight
y2 = PicDraw.ScaleHeight / 2
x = PicDraw.ScaleWidth
x2 = PicDraw.ScaleWidth / 2
 
  'Koordinatensystem zeichnen
  'ändert sich proportional zu größe der picturebox
 PicDraw.Line (x, y2)-(0, y2), vbBlue
  PicDraw.Line (x2, 0)-(x2, x), vbBlue
 
End Sub
 
 
Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii >= 48 And KeyAscii <= 57 Then
    ElseIf KeyAscii = 8 Then
    Else
        KeyAscii = 0
    End If
End Sub
 
Private Sub Text2_KeyPress(KeyAscii As Integer)
    If KeyAscii >= 46 And KeyAscii <= 57 Then
    ElseIf KeyAscii = 8 Then
    Else
        KeyAscii = 0
    End If
End Sub

IHR SEID ALLE SO
mfG
dereric


P.S.: schreibt mir eine eMail