Private Sub cmdexit_Click()
''exit button
Unload Me
End Sub

Private Sub cmdopen_Click()
''open button
If opttxt.Value = True Then

    Dim F$
    Open (file.Path + "\" + file) For Binary As #1
    F$ = Space$(LOF(1))
    Get #1, , F$
    Close #1
    rtbox.Text = F$
Else
    MsgBox "UNDONE!"
End If
rtbox.Locked = True
End Sub

Private Sub cmdsave_Click()
MsgBox "UNDONE!"
End Sub

Private Sub dir_Change()
''directory
file.FileName = dir.Path
file.Refresh
End Sub


Private Sub drv_Change()
''drive [as in drive C: or D: ...]
dir.Path = drv.Drive
dir.Refresh
End Sub

Private Sub file_DblClick()
''same with open button
If opttxt.Value = True Then
    Dim F$
    Open (file.Path + "\" + file) For Binary As #1
    F$ = Space$(LOF(1))
    Get #1, , F$
    Close #1
    rtbox.Text = F$
Else
    MsgBox "UNDONE!"
End If
rtbox.Locked = True
End Sub

Private Sub optdoc_Click()
If optdoc.Value = True Then file.Pattern = "*.doc"
End Sub

Private Sub opttxt_Click()
If opttxt.Value = True Then file.Pattern = "*.txt"
End Sub