[asemshahen5]

PHP كود :

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim sfd As New SaveFileDialog
        sfd.Filter = "NotePad (*.txt)|*.txt"
        If sfd.ShowDialog = Windows.Forms.DialogResult.OK Then
            My.Computer.FileSystem.WriteAllText(sfd.FileName, TextBox1.Text, True)
        End If
    End Sub