درس عملي ( ضروري )

[متميزه]

الاول كوده

Private Sub Command1_Click()
If Option1.Value = True Then Form2.Show
If Option2.Value = True Then Form3.Show


End Sub

والثاني كوده

Private Sub Command1_Click()

Dim a As Single
a = text1.Text
text2.Text = a
End Sub

والثالث


Private Sub Command1_Click()

Dim a, b As Single
a = text1.Text
b = text2.Text
If a>b Then text3.Text = a
else
text3.Text = b
End if
End Sub