Public Sub DrawPic()
 
 
        tmpdraw1 = tmpcore1 '/ 2        'Der Temp Wert vom Core 1 wird an _
          tmpdraw1 übergeben
        tmpdraw2 = tmpcore2 '/ 2                                                
        '      '--^^--
        tmpdraw3 = tmpcore3 '/ 2                                                
        '      '--^^--
        tmpdraw4 = tmpcore4 '/ 2                                                
        '      '--^^--
 
        picturebox1.Width = 600                     'PictureBox wird gesetzt, 
        ' Breite
        picturebox1.Height = 50                     'PictureBox wird gesetzt, 
        ' Höhe
        picturebox1.Location = New Point(430, 470)  'Die Location wird fesgelegt 
        picturebox1.BackColor = Color.White         'HintergrundFarbe
 
 
        AddHandler picturebox1.Paint, AddressOf Me.pictureBox1_Paint                
'Die Funktion, "Zeichnen in der PictureBox" wird übergeben
 
 
        Me.Controls.Add(picturebox1)
        picturebox1.Refresh()
    End Sub
 
    Public Sub pictureBox1_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs)
        Dim g As Graphics = e.Graphics
 
        g.DrawRectangle(Pens.Black, SessionCounter, 1, 1, tmpdraw1)             _
                                'Zeichen Rechteck 
        g.DrawRectangle(Pens.Black, SessionCounter + 2, 1, 1, tmpdraw2)
        g.DrawRectangle(Pens.Black, SessionCounter + 4, 1, 1, tmpdraw3)
        g.DrawRectangle(Pens.Black, SessionCounter + 6, 1, 1, tmpdraw4)
 
'Hier entsteht mein Problem, beide Subs werden 1 mal pro Sekunde durch den 
' Timer ausgeführt, aber das vorige gezeichnete Rechteck ist dann verschwunden 
' und es wird ein neues gezeichnet. 
 
Label14.Text = SessionCounter
 
    End Sub

-nothing-

-nothing-