Private Sub ctlImagebox_GotFocus(sender As Object, e As System.EventArgs) _
     Handles Me.GotFocus
        CurruntState = MouseState.Over
        Invalidate()
 
    End Sub
 
    Private Sub ctlImagebox_LostFocus(sender As Object, e As System.EventArgs) _
      Handles Me.LostFocus
        CurruntState = MouseState.None
        Invalidate()
 
    End Sub
 
 
    Private Sub ctlImagebox_Paint(sender As Object, e As _
      System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        Dim MyPen As Pen
        Dim LineWidth As Single = 4
        Dim Rect As New Rectangle(0, 0, Me.Width - LineWidth, Me.Height - _
          LineWidth)
 
 
        Select Case CurruntState
            'Case MouseState.None
            '    MyPen = New Pen(Brushes.Red,  width)
            Case MouseState.Over
                MyPen = New Pen(Brushes.Red, LineWidth)
                e.Graphics.DrawRectangle(MyPen, Rect)
            Case Else
                e.Graphics.Clear(Color.Gainsboro)
        End Select
 
 
    End Sub