✔ Bild beim starten zeichnen

[DarkSean]

Hallo,
ich hab eine Funktion geschrieben, die ein Achsenkreuz zeichnet. Jetzt habe ich aber folengdes Problem: ich möchte, dass das Achsenkreuz direkt beim Start des Programms auf einer PictureBox mit dem Namen b1 gezeichnet wird. Nur klappt das leider nicht.
Beispiel:

Public Sub achsenkreuz()
b1.Line (200, 3000)-(5800, 3000)
b1.Line (3000, 200)-(3000, 5800)
b1.Font = "Times New Roman"
b1.Font.Size = 7
b1.CurrentX = 3200
b1.CurrentY = 200
b1.Print "I"
b1.CurrentX = 5800
b1.CurrentY = 2700
b1.Print "R"
For i = 250 To 6000 Step 250
    b1.Line (i, 2950)-(i, 3050)
    b1.Line (2950, i)-(3050, i)
    b1.CurrentX = i
    b1.CurrentY = 3125
    b1.Print -12 + (i / 250)
    b1.CurrentX = 2750
    b1.CurrentY = i
    If (12 - (i / 250) <> 0) Then
        b1.Print 12 - (i / 250)
    End If
Next i
End Sub

Private Sub Form_Load()
Call achsenkreuz
End Sub

Das Programm startet, ein Achsenkreuz wird jedoch nicht gezeichnet.

 

[wincnc]

Hallo, füge Deinem Code folgendes hinzu:

Public Sub achsenkreuz()
b1.AutoRedraw = True
b1.Line (200, 3000)-(5800, 3000)
b1.Line (3000, 200)-(3000, 5800)
' ......