[[変数を表示して、OK ボタンで内容を変更する]]
@DIV
Imports System.Windows.Forms

Public Class Dialog1

	Private Sub Dialog1_Load(ByVal sender As System.Object, _
	 ByVal e As System.EventArgs) Handles MyBase.Load

		Me.サーバー.Text = Form1.Server
		Me.ユーザー.Text = Form1.User
		Me.パスワード.Text = Form1.Pass

	End Sub

	Private Sub OK_Button_Click(ByVal sender As System.Object, _
	 ByVal e As System.EventArgs) Handles OK_Button.Click

		Form1.Server = Me.サーバー.Text
		Form1.User = Me.ユーザー.Text
		Form1.Pass = Me.パスワード.Text

		Me.DialogResult = System.Windows.Forms.DialogResult.OK
		Me.Close()
	End Sub


	Private Sub Cancel_Button_Click(ByVal sender As System.Object, _
	ByVal e As System.EventArgs) Handles Cancel_Button.Click
		Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
		Me.Close()
	End Sub

End Class
@END