01.Dim file(2) As String
02. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
03.If Not TextBox7.Text = Nothing Then
04. Dim attach As New Attachment(TextBox7.Text)
05. message.Attachments.Add(attach)
06. End If
07. If Not TextBox8.Text = Nothing Then
08. Dim attach As New Attachment(TextBox8.Text)
09. message.Attachments.Add(attach)
10. End If
11. If Not TextBox9.Text = Nothing Then
12. Dim attach As New Attachment(TextBox9.Text)
13. message.Attachments.Add(attach)
14. End If
15.
16.Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
17. file = Nothing
18. OpenFileDialog1.ShowDialog()
19. file = OpenFileDialog1.FileNames
20. Try
21. TextBox7.Text = file(0)
22. Catch ex As IndexOutOfRangeException
23. End Try
24. Try
25. TextBox8.Text = file(1)
26. Catch ex As IndexOutOfRangeException
27. End Try
28. Try
29. TextBox9.Text = file(2)
30. Catch ex As IndexOutOfRangeException
31. End Try
32. End Sub
