Public Class Form1

Private Sub Button1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseDown
Button1.BackgroundImage = My.Resources.A1 '버튼 범위에서 마우스 버튼을 누르고 있을때 배경 이미지를 A1로 지정
End Sub

Private Sub Button1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseEnter
Button1.BackgroundImage = My.Resources.A3 '버튼 범위에 포인터가 있을때 배경 이미지를 A3으로 지정
End Sub

Private Sub Button1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseLeave
Button1.BackgroundImage = My.Resources.A4 '버튼 범위에서 포인터가 벗어났을때 배경 이미지를 A4로 지정
End Sub

Private Sub Button1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseUp
Button1.BackgroundImage = My.Resources.A5 '버튼 범위에서 마우스 버튼을 놨 을때 배경 이미지를 A1로 지정
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
MsgBox("버튼2를 더블클릭을 했군요") '버튼2를 클릭하면 메세지 출력
End Sub
End Class