Dim ht_add As HttpJob

Sub button1_Click
	If EditText1.Text = "" Or EditText2.Text = "" Or EditText3.Text = "" Then
		ToastMessageShow("همه موارد را پر کنید",False)
	
		Return
	End If
	If EditText1.Text.Length < 4 Then
		ToastMessageShow("نام خانوادگی نمیتواند کمتر از ۴ حرف باشد",False)
		
		Return
	End If
	If EditText3.Text.Length < 10 Then
		ToastMessageShow("توضیحات نمیتواند کمتر از ۱۰ حرف باشد",False)
		
		Return
	End If
	ht_add.PostString("http://*****/add.php","user="&EditText1.Text&"&email="&EditText2.Text&"&desc="&EditText3.Text)
End Sub