Private Sub MDIForm_Load()
    frmLogin.Show
End Sub

Private Sub MDIForm_Unload(Cancel As Integer)
    If MsgBox("Are you sure you want to exit?", vbQuestion + vbYesNo, "Confirm Exit") = vbNo Then
        Cancel = 1
    End If
    Dim frm As Form
    For Each frm In Forms
        Unload frm
    Next
End Sub

Private Sub Form_Load()
    With Me
        .Top = 0
        .Left = 0
        .WindowState = 2
    End With
End Sub

Private Sub mnuExit_Click()
    End
End Sub

Private Sub mnuTapeEntry_Click()
    With Me
        .WindowState = 1
    End With
    frmTapeEntry.Show
End Sub

Private Sub Form_Load()
    With Me
        .Top = 0
        .Left = 0
    End With
End Sub