这句话在VB里怎么表示？

Question

C***Dialog dlg;
if(dlg.DoModal()==IDOK)
{
MessageBox("1");
}

Answer 1

加个Module 叫Module1，加个语句
public n as integer 加个窗体叫Form2，在form2里加个两个按纽，叫command1,command2
在form1里加个按钮叫command1, 
添入
Private Sub Command1_Click()
    Form2.Show 1, Me
    If n = 1 Then
        MsgBox "1"
    End If
End Sub在form2中添入Private Sub Command1_Click()
    Unload Me
    n = 1
End SubPrivate Sub Command2_Click()
    Unload Me
    n = 0
End Sub