Dim MyVariable As String If frmStartup.ShowDialog() = DialogResult.OK Then MyVariable = frmStartup.FormVariable End If
Dim oMainForm As New frmMain(MyVariable) oMainForm.Show()