minimaliseer naar tray

[pontoe]

ey all,
ik heb al een tijdje rondgezocht, maar kon het nergens duidelijk vinden..
ik ben bezig met een programma, maar ik wil dat als je hem minimaliseert, dat hij dan naar de tray gaat ipv de gewone taskbar.

Public Class Form1
    Dim intervalsec As Integer
    Dim intervalmin As Integer
    Dim intervalhour As Integer



    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        intervalsec = TextBox1.Text
        intervalsec = intervalsec * 1000
        intervalmin = TextBox2.Text
        intervalmin = intervalmin * 60000
        intervalhour = TextBox3.Text
        intervalhour = intervalhour * 3600000
        Timer1.Interval = intervalsec + intervalmin + intervalhour
        Timer1.Enabled = True

        TextBox6.Text = Timer1.Interval

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
System.Media.SystemSounds.Asterisk.Play()
        Timer1.Enabled = False
    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub
End Class

dit is mijn code tot nu toe, hoe moet ik dit oplossen?

 

[That Guy]

check
http://www.vb-helper.com/howto_net_tray_icon.html
(http://blogs.msdn.com/coding4fun/archive/2006/10/31/908744.aspx)
:thumb:

 

[kayhup]

Das niet zo moeilijk!

    Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
        Select Case WindowState
            Case FormWindowState.Minimized
                MsgBox("minimazed") 'hier dus de code voor het naar tray doen:)!
            Case Else

        End Select
    End Sub