Jeg har lige ekspermenteret lidt og tror jeg har fundet ud af det, du skal:
Sætte dine billeder ind i Resources
Sætte FlatStyle til Flat
Sætte FlatAppearance -> bordersize til 0
Sætte Image til Dit billede(fra Resources)
I koden skal du skrive:
Private Sub Button1_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseHover
Button1.Image = My.Resources.buttonover(Dit billede når knappen er valgt)
End Sub
Private Sub Button1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseLeave
Button1.Image = My.Resources.button(Dit billeder)
End Sub