vb.net 窗体间变量传的传递

'Form1窗体代码



Private f1 As Integer

Private f2 As Integer



Private Sub Command1_Click()

    Form2.Show (vbModal)

    If Form2.OK Then

        f1 = Form2.s1

        f2 = Form2.s2

    End If

End Sub



'Form2窗体代码,如果不点击Command1，则不会返回s1和s2

Public s1 As Integer

Public s2 As Integer

Public OK As Boolean



Private Sub Command1_Click()

    OK = True

    Me.Hide

End Sub



Private Sub Form_Load()

    s1 = 1

    s2 = 2

End Sub