[المبرمج البسيط]

PHP كود :

Private Sub Combo1_Click()
If Text1.Text = "" Then MsgBox "لا يوجد قيمه رقميه في مربع النص"
If Combo1.Text = "mm" Then Text1.Text = (Text1.Text) / (1000)
If Combo1.Text = "cm" Then Text1.Text = (Text1.Text) / (100)
If Combo1.Text = "mm" Then Text1.Text = (Text1.Text) / (10)

End Sub

Private Sub Form_Load()
On Error Resume Next
Text1.Text = ""
Combo1.Clear
Combo1.AddItem "mm"
Combo1.AddItem "cm"
Combo1.AddItem "dm"
End Sub