Botão Sem Borda E Com Caption

[Guest - Rogerio -]

alguém sabe como fazer um botão sem borda mas com o caption que ao passar com o mouse a borda fique aparecendo?

[ramon]

Coloque em form uma label e depois um botao em cima da label com as mesmas dimensões e nas propiedades do botao coloque visible False

e depois cole este codigo

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Visible = False
End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Visible = True
End Sub