Send me to rate on the play market?

Sub ratetimer_tick


If ratemsg = True Then
ratetimer.Enabled = False

Dim result As Int
Msgbox2("Rate this app to support us.","Like this App? rate it please", "Rate", "Cancel", "", LoadBitmap(File.DirAssets , "info.png"))

If result = DialogResponse.POSITIVE Then
Dim fURI As String
fURI = "market://details?id=www.sagital.net"
Dim Market As Intent
Market.Initialize(Market.ACTION_VIEW,fURI)
StartActivity (Market)

Else

End If
End If

ratemsg = True

Return True

End Sub

Click to expand...