Sub CheckForUpdate
    Dim j As HttpJob
    j.Initialize("", Me)
    j.Download("https://api.example.com/api/version")
    Wait For (j) JobDone(j As HttpJob)
    If j.Success Then
        Dim serverVersion As Int = j.GetString
        ' اگر نسخه سرور بزرگ‌تر بود یعنی آپدیت موجود است
        If serverVersion > Application.VersionCode Then
            Msgbox("نسخه جدید برنامه موجود است!", "آپدیت")
        Else
            ToastMessageShow("شما آخرین نسخه را دارید", False)
        End If
    Else
        ToastMessageShow("مشکلی پیش آمد", True)
    End If
    j.Release
End Sub