Public Class Form1
    Inherits System.Windows.Forms.Form
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Form1_form.Close()
        form2_form.ShowDialog()
    End Sub
End Class
 
 
Public Class Form2
    Inherits System.Windows.Forms.Form
 
    Dim i As String
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        form2_form.Close()
        i += 1
        MsgBox(i)
        Form1_form.Activate()
    End Sub
End Class