my project is too big to post and cant post all codes for security reasons
here is my designer script code and main activity code
AutoScaleAll
'mccimg.VerticalCenter = loginpanel.Width / 4
mccimg1.Top = mccimg.Top + mccimg.Height + 5dip
Label2.SetTopAndBottom(100%y - (Label2.Height * 1.5) , 100%y)
lblMessage.Top = mccimg1.Top + mccimg1.Height + 1dip
#Region Project Attributes
#ApplicationLabel: Trakit
#VersionCode: 11
#VersionName: Kaina
'SupportedOrientations possible values: unspecified, landscape Or portrait.
#SupportedOrientations: portrait
#CanInstallToExternalStorage: False
#AdditionalRes: ..\resource1
#Extends: android.support.v7.app.AppCompatActivity
#AdditionalJar: com.google.android.gms
lay-services-base
#BridgeLogger: True
#MultiDex: True
#End Region
#Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#End Region
Sub Process_Globals
Dim access As Accessiblity
Public objPhone1 As Phone
Public deviceid1 As String
Dim strUserID As String
Dim strPassword As String
Dim strUserName As String
Private mpass As String
Private mdeviceid As String
Dim Timer1 As Timer
Dim crypt As Crypter
Dim mytoken1 As String
Dim sql1 As SQL
Dim msgctr As Int
Dim notimessage As String
Dim mcompanyname As String
Private rp As RuntimePermissions
End Sub
Sub Globals
Private gmap As Camera
'Private MapFragment1 As MapFragment
Dim appverno As Int = 11
Private ms1 As String
Private ms2 As String
Dim sf As StringFunctions
Private useridtxt As EditText
Private passtxt As EditText
Private mccimg As ImageView
Private lblMessage As Label
Private loginpanel As Panel
Private lblforgot As Label
Private lblsignup As Label
Private Label2 As Label
Private Loginbtn As Button
Private Label1 As Label
Private loginpanel As Panel
Private Loginbtn As Button
Dim Bmp As Bitmap
Private splashpanel As Panel
Private resetpasslbl As Label
Dim Login As HttpJob
Dim job1 As HttpJob
Dim job2 As HttpJob
Dim job3 As HttpJob
Dim ftemp As String = ""
Private fjobbtn As Button
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("frmlogin")
Dim mbar As ACActionBar
sf.Initialize
mbar.Initialize
mbar.HomeVisible = True
mbar.Title = "Trakit"
mbar.Subtitle = "Trackitsolutions"
Bmp.Initialize(File.DirAssets, "ic_launcher.png")
splashpanel.Visible=True
splashpanel.BringToFront
Timer1.Initialize("Timer1", 3000)
Timer1.Enabled=True