MainForm = Form1
MainForm.Show
MainForm.RootPane.LoadLayout("1") 'Load the layout file.
DatePicker1.DateFormat = "dd/MM/yyyy"
MarkerList.Initialize
Dim url As String
url = "jdbc:sqlserver://xxxxxxxxx;integratedSecurity=false;databaseName=xxxxxx;"
sql1.Initialize2("com.microsoft.sqlserver.jdbc.SQLServerDriver",url, "xxx", "xxxxxxx")
Dim rs As ResultSet = sql1.ExecQuery("SELECT Code, Name FROM SFIS WHERE fCommercialUnitCode = '001' ORDER BY Code")
ComboBox1.Items.Add("Όλοι")
Do While rs.NextRow
ComboBox1.Items.Add(rs.GetString("Code") & " - " & rs.GetString("Name"))
Loop
rs.Close
ComboBox1.SelectedIndex = 0
options.StreetViewControl = False
gmap.Initialize2("gmap", options, "xxxxxxxxxxxxxxxxxxxxx")
Pane1.AddNode(gmap.AsPane, 0, 0, Pane1.Width, Pane1.Height)
MarkerInfos.Initialize