Dim result As MsgBoxResult result = MsgBox("どっちにしますか?", MsgBoxStyle.OkCancel) If result = MsgBoxResult.Ok Then 'OKが選択されたときここで止まります。 Stop Else 'OKではないとき(=上の例ではキャンセルのとき)ここで止まります。 Stop End If
Dim dialog As New OpenFileDialog If dialog.ShowDialog = DialogResult.OK Then Dim fileName As String fileName = dialog.FileName MsgBox(fileName) End If