Sub btnSendSMS_Click
    Dim sms As SMS
    sms.Initialize("sms")

    Dim phoneNumber As String
    phoneNumber = txtPhoneNumber.Text

    Dim message As String
    message = "متن پیامک شما"

    If phoneNumber <> "" And message <> "" Then
        sms.Send(phoneNumber, message)
        ToastMessageShow("پیامک با موفقیت ارسال شد.", True)
    Else
        ToastMessageShow("لطفاً شماره تلفن و متن پیامک را وارد کنید.", True)
    End If
End Sub