[نونو العسوله]

أنا جربت هذا الكود

Private Sub Command1_Click( )
Dim s As Single
S= Text1.Text
SELECT CASE S
CASE 2000 to 2900
Text2.Text =360+S
CASE 3000 to 3900
Text2.Text=450+S
CASE 4000 to 5000
Text2.Text=600+S
CASE 5100 to 6000
Text2.Text=500+S
CASE 6100 to 8000
Text2.Text=700+S
CASE ELSE
(" السعر غير متاح ") Msgbox
END SELECT
End Sub

طلع صحيح ..

بس هذا


Private Sub Command1_Click( )
("اسعار المحمول .. مقدار غلاء الأسعار") MsgBox
End Sub

وين أحطه ولا مو لازم