Public Class Form1
    Private WithEvents Btn As New Button With {.Bounds = New Rectangle(10, 10, _
      40, 40), .Parent = Me}
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Btn.Image = SystemIcons.Warning.ToBitmap
    End Sub
 
    Private Sub Btn_MouseDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles Btn.MouseDown
        Btn.Image = SystemIcons.Error.ToBitmap
    End Sub
 
    Private Sub Btn_MouseUp(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles Btn.MouseUp
        Btn.Image = SystemIcons.Warning.ToBitmap
    End Sub
End Class