frmMirage

[DarkX]

See Advocate has the idea I'm talking about, but I'm trying somethign new (it's like the sub resizeGUI)
here I'll post(Not sure if it will work)

Code:

Sub ResizeGUI()
    If frmMirage.WindowState  vbMinimized Then
        frmMirage.picScreen.Height = Int(frmMirage.Height / Screen.TwipsPerPixelY) - frmMirage.picScreen.top + 600
        frmMirage.picScreen.Width = Int(frmMirage.Width / Screen.TwipsPerPixelX) + 8000
    Else
      If frmMirage.WindowState  vbMaximized Then
      frmMirage.picScreen.Height = Int(frmMirage.Height / Screen.TwipsPerPixelY) - frmMirage.picScreen.top + 600
      frmMirage.picScreen.Width = Int(frmMirage.Width / Screen.TwipsPerPixelX) + 8000
    End If
    End If
End Sub

Can't test it I'm at college right now.
and then I was going to add some option buttons called "opt86"(refrence to ScreenSize 800*600) and "opt17"(reference to ScreenSize 1024*768)
Ok I gotta go for the time being.