Dim n As Integer
Private Sub Command1_Click()
n = Val(Text1.Text)
If n < 0 Then Label1.Caption = " Number Is Negative "
ElseIf n > 0 Then Label1.Caption = " Number Is Positivve "
Else n = 0 Then Label1.Caption = " This Is ZERO
End If
Text1.Text = ""
End Sub



Private Sub Form_Load()
Text1.Text = ""
Label1.Caption = ""
Label1.AutoSize = True
End Sub
:flower: فکر کنم اینجوری درست میشه