Partial Class _Default Inherits System.Web.UI.MobileControls.MobilePage Dim fetion As New NullStudio.Fetion_SDK.FetionSDK
Protected Sub Command1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Command1.Click fetion.AccountManager.FillUserIdAndPassword(Me.TextBox1.Text, Me.TextBox2.Text, False)
System.Threading.Thread.Sleep(500) Dim i As Short i = fetion.AccountManager.Login() System.Threading.Thread.Sleep(500) If i = -1 Then ActiveForm = Form2