ho un problema non riesco a mettere il form in Me.Visible = False, uso questo codice:

codice:
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
                  TextBox1.Text = String.Empty
		Me.Cursor = Cursors.AppStarting
		Try

			NotifyIcon1.Visible = True
			Dim wc As New WebClient()
			Dim IIP As String = Encoding.ASCII.GetString(wc.DownloadData(New Uri("http://pchelplive.com/ip.php")))
			Application.DoEvents()
			TextBox1.Text = Replace(IIP, Chr(10), "")
			NotifyIcon1.BalloonTipIcon = ToolTipIcon.Info
			NotifyIcon1.BalloonTipTitle = "IP"
			NotifyIcon1.BalloonTipText = "Il Mio IP:" & TextBox1.Text
			NotifyIcon1.ShowBalloonTip(500)
			ToolStripTextBox1.Text = TextBox1.Text
			Me.FormBorderStyle = Windows.Forms.FormBorderStyle.FixedToolWindow
			Me.Visible = False

		Catch ex As Exception
			MessageBox.Show("Controllare la scheda di rete o il modem", "Errore", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
			If TextBox1.Text <> CDec(TextBox1.Text) Then TextBox1.Text = String.Empty
			NotifyIcon1.Visible = True
			NotifyIcon1.BalloonTipIcon = ToolTipIcon.Error
			NotifyIcon1.BalloonTipTitle = "IP Errore "
			NotifyIcon1.BalloonTipText = "Il Mio IP: Assente"
			NotifyIcon1.ShowBalloonTip(10)
			Me.Cursor = Cursors.Default
			Me.Visible = True
		End Try
		Me.Cursor = Cursors.Default

	End Sub