كود لفتح ملف نصي تلقائيا بالمفكرة
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Shell("notepad.exe" & " " & "C:\windows\desktop\books.txt", vbNormalFocus)
End Subعوض "C:\windows\desktop\books.txt" بالملف النصي