Visual Basic

Public Class Form2<br />
...<br />
Private Sub Form2_Load(...<br />
Dim j As Integer<br />
j = MyForm1.i<br />
End Sub<br />
End Class

Public Class TestClass1<br />
<br />
Public Var2 As Integer    'Accessable from outside the class<br />
Private Var3 As Integer    'Accessable only in the class<br />
<br />
Public Sub MyProc()<br />
Dim Var4 As Integer          'Accessable only in this method<br />
Var4 = Var3 'This is OK because Var3 can be accessed anywhere in the class<br />
End Sub<br />
<br />
Private Sub MyProc2()    <br />
Dim Var5 As Integer           'Accessable only in this method<br />
Var5 = Var1 'This is OK because Var1 can be accessed from anywhere.<br />
End Sub<br />
<br />
End Class

Public Class TestClass2<br />
<br />
Private Var6 As Integer<br />
<br />
Public Sub DoSomething()<br />
  Var6 = TestClass1Obj.Var2 'This is OK because TestClass2 has indentified where Var2 can be found<br />
End Sub<br />
<br />
End Class