Public Sub Start_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Start.Click
 
        ' Zeichenform zurücksetzen
        m_gp.Reset()
 
        ' Nummernvergabe
        Dim Number(9) As Integer
        Number(0) = 1
        Number(1) = 2
        Number(2) = 3
        Number(3) = 4
        Number(4) = 5
        Number(5) = 6
        Number(6) = 7
        Number(7) = 8
        Number(8) = 9
        Number(9) = 10
 
 
        ' Figurstart
        m_gp.StartFigure()
 
        ' For Schleife Nummern mit Positionierungspunkten
        Dim RandomClass As New RandomNumbers
        For Each m_strNumber In Number
            m_bVisible = True
            RandomClass.RandomNumbers()
            m_ptPoint = RandomClass.m_ptPoint
 
            'MessageBox.Show(m_ptPoint.ToString)
            Application.DoEvents()
            Refresh()
 
        Next
 
        ' m_bVisible = False
        m_bVisible = False
 
        ' Figurende
        m_gp.CloseFigure()
 
    End Sub
#End Region
    Protected Overrides Sub OnPaint(ByVal e As _
      System.Windows.Forms.PaintEventArgs)
 
        If m_bVisible Then
            m_gp.AddString(m_strNumber, New FontFamily("Arial"), _
              FontStyle.Bold, 20, m_ptPoint, StringFormat.GenericDefault)
            e.Graphics.FillPath(Brushes.Red, m_gp)
        End If
 
    End Sub
End Class
Public Class RandomNumbers
    Inherits Form1
    Sub RandomNumbers()
        Randomize()
        Dim pRandom As New Random
        m_ptPoint = New Point(pRandom.Next(1, 768), pRandom.Next(1, 496))
    End Sub
End Class

   If m_bVisible Then
            m_gp.AddString(m_strNumber, New FontFamily("Arial"), _
              FontStyle.Bold, 20, m_ptPoint, StringFormat.GenericDefault)
MessageBox.Show(m_ptPoint.ToString)
            e.Graphics.FillPath(Brushes.Red, m_gp)
        End If