ah ok scusa!

codice:

        Me.Left = (Screen.PrimaryScreen.Bounds.Width - Me.Width) / 2
        Me.Top = (Screen.PrimaryScreen.Bounds.Height - Me.Height) / 2


        Timer1.Enabled = True


        ToolStripStatusLabel2.Text = Login.TextBox1.Text.ToString
        ToolStripStatusLabel3.Text = Now.ToString("dd MM YY")
        ToolStripStatusLabel4.Text = TimeString


        MenuP.ApriConnessione()


        Dim comm As OleDb.OleDbCommand = New OleDb.OleDbCommand("select colore From Vernici", MenuP.objconn)
        Dim dr As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter(comm)
        Dim dt As Data.DataTable = New Data.DataTable()
        dr.Fill(dt)


        MenuP.ChiudiConnessione()


        Dim c As Integer = 0


        While (dt(c)(0).ToString <> "")


            ComboBox1.Items.Add(dt(c)(0).ToString)
            c = c + 1


        End While


        If File.Exists("del.log") = False Then


            swIns = File.CreateText(Application.StartupPath & "\del.log")
            swIns.WriteLine("INIZIO FILE DI LOG CANCELLAZIONI")
            swIns.Flush()
            swIns.Close()


        End If
Eccolo