VB6 - ICONE AO LADO DO RELOGIO DO WINDOWS

Dim nid As NOTIFYICONDATA

Private Sub cmdconfirma_Click()
If txtnome.Text = [Ô]Hotel[Ô] And txtsenha.Text = [Ô]Caetano[Ô] Then
MsgBox [Ô]Senha Correcta[Ô], vbInformation, [Ô]Sessão Iniciada[Ô]
Iniciar.Hide
Inicio.Show
Else
MsgBox [Ô] A informação de acesso que introduziu não existe na nossa base de dados. Por favor, tente novamente[Ô], vbCritical, [Ô]ERRO[Ô]
txtnome.Text = [Ô][Ô]
txtsenha.Text = [Ô][Ô]
txtnome.SetFocus
End If
End Sub

Private Sub cmdfinalizar_Click()
txtnome.Text = [Ô][Ô]
txtsenha.Text = [Ô][Ô]
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Format(Time)
End Sub

Private Sub Form_Unload(Cancel As Integer)
     If MsgBox([Ô]Tem a certeza que pretende sair do Programa?[Ô], vbQuestion + vbYesNo, [Ô]Hotel Caetano[Ô]) <> vbYes Then
        Cancel = True
     End If
Shell_NotifyIcon NIM_DELETE, nid
End Sub

Private Sub Form_Load()
WebBrowser1.Navigate [Ô]C:    empoagora.html[Ô]
End Sub

Sub minimize_to_tray()
Me.Hide
nid.cbSize = Len(nid)
nid.hwnd = Me.hwnd
nid.uId = vbNull
nid.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
nid.uCallBackMessage = WM_MOUSEMOVE
nid.hIcon = Me.Icon
nid.szTip = [Ô]Um titulo para o icone[Ô] & vbNullChar
Shell_NotifyIcon NIM_ADD, nid
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim msg As Long
Dim sFilter As String
msg = x / Screen.TwipsPerPixelX
Select Case msg
Case WM_LBUTTONDOWN
Case WM_LBUTTONUP
Case WM_LBUTTONDBLCLK
Me.Show
Shell_NotifyIcon NIM_DELETE, nid
Case WM_RBUTTONDOWN
Case WM_RBUTTONUP
Case WM_RBUTTONDBLCLK
End Select
End Sub

Private Sub Form_Resize()
If Me.WindowState = 1 Then
minimize_to_tray
Me.WindowState = 0
End If
End Sub