Bom dia a todos do vbweb estou com uma pequena dificuldade estou desenvolvendo um sistema preciso de dua coisa como fazo para coloar um link em um label este direciona para uma pagina na web

Segundo problema nao consigo mudar o ponteiro do mause quando passa em cima de um botão

olha só.. 1º pra abrir o link pelo label:

 

declara isso:

 

depois no label:

 

2º - mudar o ponteiro do mouse:

 

para mudar o ícone do mouse... vai na propriedade musepointer e escolhe como vc vai querer a aparência do mouse.

 

espero ter ajudado.

 

luciano

Luciano valei obrigado

só pra ser mais exato veja este exemplo

 

primeiro no label mude MousePointer para

 

MousePointer = 99 - Custom

MouseIcon você escolhe o icone

 

agora cole

 

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation _
As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

 

Private Sub Form_Load()
With Label1
  .AutoSize = True
  .ForeColor = vbBlue
  .Font.Underline = True
  .Caption = "http://www.vbweb.com.br"
End With
End Sub

 

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = vbBlue
End Sub

 

Private Sub Label1_Click()
Dim ret&
ret = ShellExecute(Me.hwnd, "OPen", Label1.Caption, "", "", 1)
End Sub

Private Sub Label1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Label1.ForeColor = vbBlue
End Sub
 

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
     Label1.ForeColor = vbRed
End Sub