Quando um usuário move o mouse sobre o programa, o cursor ícone padrão é o ponteiro. Visual Basic 6 permite que você altere o padrão usando a propriedade MousePointer para vários objetos em seu formulário. Por exemplo, você pode mudar o cursor seta para qualquer outra coisa, como uma cruz , uma viga , uma seta com um ponto de interrogação ou até mesmo um cursor personalizado você carregar no programa. Alterar o código em qualquer uma das funções MouseMove para os vários controles no formulário , ou mesmo para toda a forma em si . Instruções
1

Abra o programa Visual Basic. Acesse a janela de código
2

Abra a função Form_MouseMove e digite o seguinte: .

Form1.MousePointer = vbCrosshair

Quando o usuário passa seu ponteiro sobre a forma , o padrão cursor muda para uma mira
3

abrir a função Label1_MouseMove e digite o seguinte: .

Label1.MousePointer = vbSizeNS

Quando o usuário passa sobre Label1 (assumindo que este controle existe em seu formulário ) , o padrão cursor muda para uma seta que aponta para o norte e para o sul. Isso substitui o cursor de retículo que é exibido no resto do formulário
4

Abra a função Label2_MouseMove e digite o seguinte: .

Label2.MouseIcon = LoadPicture ( "C: \\ MyCursor . cur " )

Label2.MousePointer = vbCustom

Quando o usuário passa o mouse sobre Rótulo2 (assumindo que este controle existe em seu formulário ) , o padrão cursor muda para um cursor personalizado fornecidas na função LoadPicture . Verifique se o caminho na lista de parâmetros corresponde onde você salvou o arquivo de cursor para .