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