VB6 - hitoshop14 @ ウィキ

サンプルソース管理をしようと思って、
今まで、仕事やプライベートで使用したのを
誰にも邪魔されずに記録として残していきます.

       Dim ret As New DialogResult
       Dim fm As New Form2
       ret = fm.ShowDialog()
       Select Case ret
           Case Windows.Forms.DialogResult.OK
               MessageBox.Show(fm.SerchKey)
           Case Windows.Forms.DialogResult.Cancel
               MsgBox("キャンセルクリック")
       End Select
End Sub