MDI FORM

 Private Sub MDIForm_Load()
 Dim lgdta As String
 lgdta = Format(Date, [Ô]Long Date[Ô])
 StatusBar1.Panels(1).Text = [Ô]USUÁRIO:[Ô] & Vnome
 StatusBar1.Panels(2).Text = StrConv(lgdta, vbUpperCase)

 
 
 
 
End Sub

Private Sub mnuCadUsuario_Click()
frmUsuario.Show
End Sub

Private Sub mnuLogoff_Click()

    Dim vLogoff As Integer
        vLogoff = MsgBox([Ô]TEM CERTEZA QUE DESEJA DESLOGAR DO SISTEMA? [Ô], 4372, [Ô]A.E.D.C - Módulo ..::CRONOS::..[Ô])
    
    If vLogoff = 6 Then
        Unload Me
        frm_StartPW.Show
        
    End If

End Sub

Private Sub mnuSair_Click()

Dim vSaida As Integer
        vSaida = MsgBox([Ô]TEM CERTEZA QUE DESEJA SAIR DO SISTEMA? [Ô], 4372, [Ô]A.E.D.C - Módulo ..::CRONOS::..[Ô])
    
    If vSaida = 6 Then
        Unload Me
        End
    End If
    
    
End Sub

Private Sub mnuSobre_Click()

frmAbout.Show


End Sub



Private Sub Picture1_Click()

End Sub

Private Sub Timer1_Timer()
 StatusBar1.Panels(3).Text = Time
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
    If Button.Index = 2 Then
        [ô]Foi clicado o botão Sair:
        mnuSair_Click
    End If
End Sub