Activity 1

Code:


Private Sub cmdClick_Click()
Coins.Visible = False

lbl1.Caption = Int(Rnd * 10)
lbl2.Caption = Int(Rnd * 10)
lbl3.Caption = Int(Rnd * 10)

If (lbl1.Caption = 7) Or (lbl2.Caption = 7) Or (lbl3.Caption = 7) Then
Coins.Visible = True
Beep
End If
End Sub

Private Sub cmdExit_Click()
End
End Sub

Activity 2

Output:

Code:

Dim RGBValue As Integer

Private Sub cmdCLICK_Click()
Coins.Visible = False
labelA.Caption = Int(Rnd * 10)
labelB.Caption = Int(Rnd * 10)
labelC.Caption = Int(Rnd * 10)
If (labelA.Caption = 7) Or (labelB.Caption = 7) Or (labelC.Caption = 7) Then
Coins.Visible = True
Beep
End If
End Sub

Private Sub cmdEXIT_Click()
End
End Sub

Private Sub mnuAuthor_Click()
frmDesign.Show
End Sub

Private Sub mnuBlue_Click()
FrmLucky7.BackColor = RGB(10, 10, 150)
End Sub

Private Sub mnuGreen_Click()
FrmLucky7.BackColor = RGB(10, 150, 10)
End Sub

Private Sub mnuOrange_Click()
FrmLucky7.BackColor = RGB(255, 121, 0)
End Sub

Private Sub mnuPink_Click()
FrmLucky7.BackColor = RGB(255, 201, 255)
End Sub

Private Sub mnuRed_Click()
FrmLucky7.BackColor = RGB(255, 0, 0)
End Sub

Private Sub mnuViolet_Click()
FrmLucky7.BackColor = RGB(99, 0, 86)
End Sub

Private Sub mnuYellow_Click()
FrmLucky7.BackColor = RGB(255, 255, 0)
End Sub

Activity 3

Output

Code:

Private Sub VScrollFirst_Change()
Picture1.BackColor = RGB(VScrollFirst.Value, VScrollSecond.Value, VScrollThird.Value)
Labelred.Caption = "Red: " & VScrollFirst.Value
End Sub

Private Sub VScrollSecond_Change()
Picture1.BackColor = RGB(VScrollFirst.Value, VScrollSecond.Value, VScrollThird.Value)
Labelgreen.Caption = "Green: " & VScrollSecond.Value
End Sub

Private Sub VScrollThird_Change()
Picture1.BackColor = RGB(VScrollFirst.Value, VScrollSecond.Value, VScrollThird.Value)
Labelblue.Caption = "Blue: " & VScrollThird.Value
End Sub