Public Class myClass
   public x as integer
End Class

...
dim newClass as myClass = New myClass
newClass.x = 1
...

Public Class Form2
    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        If newClass.x = 1 then
            msgbox("success")
        end if

    End Sub

End Class