' Visual Basic Programming
' by Mr. Minich
' Ch. 7 Demo #10
' Purpose - to demonstrate the use of the scroll bars, menu controls, and a shortcut menu

Option Explicit

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If (Button = vbRightButton) Then
        PopupMenu mnuShortcut
    End If
End Sub

Private Sub hsbBlue_Change()
    Form1.BackColor = RGB(hsbRed.Value, hsbGreen.Value, hsbBlue.Value)
End Sub

Private Sub hsbGreen_Change()
    Form1.BackColor = RGB(hsbRed.Value, hsbGreen.Value, hsbBlue.Value)
End Sub

Private Sub hsbRed_Change()
    Form1.BackColor = RGB(hsbRed.Value, hsbGreen.Value, hsbBlue.Value)
End Sub

Private Sub mnuFileExit_Click()
    Unload Me
    End
End Sub

Private Sub mnuFunChangeColor_Click()
    Call ChangeColor
    
    If (mnuFunChangeColor.Checked = True) Then
        mnuFunChangeColor.Checked = False
    Else
        mnuFunChangeColor.Checked = True
    End If
        
End Sub

Private Sub mnuFunColorRed_Click()
    Form1.BackColor = vbRed
    mnuFunColorRed.Checked = True
    mnuFunColorRed.Enabled = False
    mnuFunColorGreen.Enabled = True
End Sub

Private Sub mnuFunColorGreen_Click()
    Form1.BackColor = vbGreen
    mnuFunColorGreen.Enabled = False
    mnuFunColorGreen.Enabled = True
End Sub

Private Sub ChangeColor()
    If (hsbRed.Visible = True) Then
        hsbRed.Visible = False
        hsbGreen.Visible = False
        hsbBlue.Visible = False
    Else
        hsbRed.Visible = True
        hsbGreen.Visible = True
        hsbBlue.Visible = True
    End If
End Sub

Private Sub mnuShortcutChangeColor_Click()
    Call ChangeColor
    If (mnuFunChangeColor.Checked = True) Then
        mnuFunChangeColor.Checked = False
    Else
        mnuFunChangeColor.Checked = True
    End If
    
End Sub