Code:
'Save Icons Pos.
Main.SaveIconPositions
If Media_Player.MPlayer(0).PlayState = mpPlaying Or Media_Player.MPlayer(0).PlayState = mpPaused Then
Media_Player.MPlayer(0).Stop
Media_Player.MPlayer(0).FileName = ""
Main.MediaBar.Picture = Media_Player.playimg_dead.Picture
Main.MediaBar_Progress.Value = 0
Media_Player.playimg_timer.Enabled = False
End If
If Media_Player.MPlayer(1).PlayState = mpPlaying Or Media_Player.MPlayer(1).PlayState = mpPaused Then
Media_Player.MPlayer(1).Stop
Media_Player.MPlayer(1).FileName = ""
Main.MediaBar.Picture = Media_Player.playimg_dead.Picture
Main.MediaBar_Progress.Value = 0
Media_Player.playimg_timer.Enabled = False
End If

KCK = True ' Set Kicker Var to unload all forms with no trouble
Dim I   ' Declare loop variable.
'Unload all forms
fz:
If NexNetOn = True Then killnet_Click
If VB.Forms.Count = 0 Then GoTo 2224
If VB.Forms.Count = 1 Then GoTo 2224
For I = 0 To VB.Forms.Count - 1
If VB.Forms(I).Caption = Main.Caption Then GoTo eeex
If VB.Forms.Count = 1 Then GoTo 2224
Unload VB.Forms(I)
GoTo fz
eeex:
Next I