[EO] Colocando Status Online/Offline

1 - Primeiro crie um label na frmMenu
[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]

1.1 - Em BackStyle clique em Transparent

1.2 - Em Capition coloque o nome Servidor

[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]

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&
[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]

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

Acho que isso seria simples de criar, porém muitos não sabem, mas isso poderá ajudar muitos desses.