Imports System.
IO
Public Class Form1
Private Sub SaveFileDialog1_FileOk(ByVal sender As [Link],
ByVal e As [Link])
End Sub
Private Sub Button1_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
Dim strfilename As String
With OpenFileDialog1
.Filter = "textfile(*.txt)(*.txt)|all files(*.*)*.**"
.FilterIndex = 1
.InitialDirectory = "c:\"
.Title = " openfiledialog"
End With
If [Link]() = [Link]
Then
strfilename = [Link]
Dim objreader As StreamWriter = New
StreamWriter(strfilename, False)
[Link]("[Link]")
[Link]()
objreader = Nothing
End If
End Sub
Private Sub Button2_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
Close()
End Sub
EndClass