[ALL]Colocando Status Online/Offline no

Por: Marlos Gama

1 - Primeiro crie um label na frmMenu
1.1 - Em BackStyle clique em Transparent
1.2 - Em Capition coloque o nome Servidor
2 - Crie outro label e em (Name) coloque checarstatus
2.1 - Em BackStyle clique em Transparent
2.2 - Em Capition coloque o nome Offline
2.3 - Em ForeColor clique na cor vermelha ou coloque o texto &H000000FF&
3 - Agora clique duas vezes na frmMenu para que apareça a parte de digitar os códigos
3.1 - Procure Por:

Código:

Private Sub Form_Load()



3.2 - Antes dessa Private coloque o código

Código:

Private Sub Form_Activate()
If ConnectToServer(1) Then
checarstatus.Caption = "Online"
checarstatus.ForeColor = &HC0FFC0
End If
End Sub



Quem copiar esse código desse tuto, vai encontrar problemas, porque até o nome da fonte da letra do tópico saiu, faltou as imagens e tudo mais

Tópico editado.
Obrigado por avisar Marlos (y
Irei dar uma dura no Jiraya porque num é a primeira vez que ele faz isso =P

Fallowz ~//