Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
---------------------------------------------------------------------
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
----------------------------------------------------------------------
Private Sub File1_Click()
selectedfile = File1.Path & "\" & File1.FileName
Open selectedfile For Input As #1
Do Until EOF(1)
Line Input #1, lineoftext
alltext = alltext & lineoftext
Loop
RichTextBox1.Text = alltext
Close
End Sub
-------------------------------------------------------------------------
Private Sub mnuExitItem_Click()
End
End Sub
--------------------------------------------------------------------------
Private Sub mnuOpenItem_Click()
CommonDialog1.Filter = "JPEG (*.jpg) | *.jpg"
CommonDialog1.ShowOpen
Image1.Picture = LoadPicture(CommonDialog1.FileName)
End Sub
---------------------------------------------------------------------------
