Dim N As Integer
For N = 1 To 4
N =N+1
ListBox1.Items.Add (N
Next N
ممكن حد يفهمني الكود دا
Dim X As Integer
X=2
Do Until X =3
X=X*2
ListBox1.Items.Add(Math.Sqrt (X
X=3
Loop
Privat Sub Button1_Click
()
Dim num As Integer
num=5
TextBox1.Text=CStr
num) ^2
End Sub