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