Public Class Form1
Dim Bitmap As New Bitmap(2000, 2000)
Private Sub Stiftfarbe_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Stiftfarbe.Click
ColorDialog1.ShowDialog()
My.Settings.Stiftfarbe = ColorDialog1.Color
My.Settings.Save()
My.Settings.Reload()
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
For a As Integer = 1 To 25
Breiteval.Items.Add(a.ToString)
Next
End Sub

Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
Static last As New Point
If e.Button = Windows.Forms.MouseButtons.Left Then
Dim pencolor As Color = My.Settings.Stiftfarbe
Dim Zahl As Integer
Zahl = Val(Int(Breiteval.Text))
Dim penborder As Integer = Zahl
Dim pensettings As New Pen(pencolor, penborder)
Dim Picturegraphics As Graphics = Graphics.FromImage(Bitmap)
pensettings.StartCap = Drawing2D.LineCap.Round
pensettings.EndCap = Drawing2D.LineCap.Round
Picturegraphics.SmoothingMode = Drawing2D.SmoothingMode.HighQuality
Picturegraphics.DrawLine(pensettings, last.X, last.Y, e.X, e.Y)
Picturegraphics.Dispose()
PictureBox1.BackgroundImage = Bitmap
PictureBox1.Refresh()
End If
last = e.Location
ToolColor.Text = ColorDialog1.Color.ToString
ToolBorder.Text = Breiteval.Text
End Sub

Private Sub BeendenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BeendenToolStripMenuItem.Click
End
End Sub

Private Sub NeuToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NeuToolStripMenuItem.Click
Bitmap = New Bitmap(2000, 2000)
PictureBox1.Image = Nothing
PictureBox1.Refresh()
End Sub
End Class

Link: http://www.mediafire.com/download.php?oh94bswlz100o4t