Sub PBPictureMouseMove(sender As Object, e As _
  System.Windows.Forms.MouseEventArgs)
		Dim Painter As Graphics = Me.pBPicture.CreateGraphics
		Dim Pen As New Pen(Color.Black, 1)
                While e.Button = System.Windows.Forms.MouseButtons.Left
			Dim rect As New Rectangle(e.X, e.Y, 1, 1)
			Painter.FillRectangle(Brushes.Black, rect)
                End While
	End Sub