Public Class PicBox
    Protected PB As PictureBox
    Protected Color As New SolidBrush(Drawing.Color.DarkBlue)
 
    Private Sub Grafik(ByVal sender As Object, ByVal e As PaintEventArgs) _
      Handles Me.Paint
        Dim g As Graphics = e.Graphics
 
    End Sub
End Class