Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles MyBase.Load
 
      ' LEDBoard initialisieren
      With picBoard
         LedsPerRow = Int(.Width \ LEDSize)
         LedBoardSize.X = LedsPerRow * LEDSize + 1
         LedBoardSize.Y = 10 * LEDSize
         LedBoardRect.Size = LedBoardSize
         .BackColor = Color.Gray
         .Size = LedBoardSize
      End With
 
      ' Der Text für das LEDBoard
      GetPixel("Fußball WM 2006 in Deutschland... ")
 
      ' Aufruf muss nach GetPixel erfolgen
      InitBoard()
 
      Timer1.Interval = TInterval
      Timer1.Enabled = True
   End Sub
 
 
 
   Private Sub InitBoard()
      Dim cCol As Brush
 
      ' Bitmap initialisieren
      bmp = New Bitmap(sMatrix(0).Length * LEDSize, LedBoardSize.Y)
      g = Graphics.FromImage(bmp)
 
      ' LEDBoard Image erzeugen
      For x As Integer = 0 To sMatrix(0).Length - 1
         For y As Integer = 0 To 9
            If sMatrix(y).Chars(x) = "0" Then
               g.FillEllipse(Brushes.White, x * LEDSize, LEDSize + (y - 1) * _
                 LEDSize, LEDSize, LEDSize)
            Else
               Select Case y
                  Case 0 To 2 : cCol = Brushes.Black
                  Case 3 To 6 : cCol = Brushes.Red
                  Case Else : cCol = Brushes.Yellow
               End Select
 
               g.FillRectangle(cCol, x * LEDSize - 1, LEDSize + (y - 1) * _
                 LEDSize, LEDSize - 1, LEDSize - 1)
               'g.FillEllipse(cCol, x * LEDSize, LEDSize + (y - 1) * LEDSize, 
               ' LEDSize, LEDSize)
            End If
         Next
      Next
   End Sub

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control