Sub AFMBtn_Click
If Main.G1.Phone_Connection = True Then
If Main.G1.ValidateAFM(AFMEditText.Text) = True Then
TaxisDownload("XXXXXXX", "XXXXXX", "XXXXXXX", AFMEditText.Text)
Else
Msgbox("Λάθος Α.Φ.Μ.", "Προσοχή")
End If
Else
Msgbox("Δέν υπάρχει πρόσβαση στο Internet", "Προσοχή")
End If
End Sub