Code:
Private Sub cmdClear_Click()
cmdClear.Enabled = False
counter = 0
opt30mins.Enabled = True
opt1hour.Enabled = True
optOpenTime.Enabled = True
cmdStartTime.Enabled = True
txtStartTime.Text = "00:00:00"
txtEndTime.Text = "00:00:00"
lblremaining.Caption = Format(countdown, "00:00:00")
lblOpenTime.Caption = Format(countdown, "00:00:00")
txtamount.Text = Format(TotalAmount, "P0.00")
If unit(1).Visible = True Then
frmItems.cmdUnit1.Picture = LoadPicture("C:\Users\Jithea\Desktop\JITHEA COMPUTER SHOP\icons\off.jpg")
ElseIf unit(2).Visible = True Then
frmItems.cmdUnit2.Picture = LoadPicture("C:\Users\Jithea\Desktop\JITHEA COMPUTER SHOP\icons\off.jpg")
ElseIf unit(3).Visible = True Then
frmItems.cmdUnit3.Picture = LoadPicture("C:\Users\Jithea\Desktop\JITHEA COMPUTER SHOP\icons\off.jpg")
ElseIf unit(4).Visible = True Then
frmItems.cmdUnit4.Picture = LoadPicture("C:\Users\Jithea\Desktop\JITHEA COMPUTER SHOP\icons\off.jpg")
ElseIf unit(5).Visible = True Then
frmItems.cmdUnit5.Picture = LoadPicture("C:\Users\Jithea\Desktop\JITHEA COMPUTER SHOP\icons\off.jpg")
ElseIf unit(6).Visible = True Then
frmItems.cmdUnit6.Picture = LoadPicture("C:\Users\Jithea\Desktop\JITHEA COMPUTER SHOP\icons\off.jpg")
ElseIf unit(7).Visible = True Then
frmItems.cmdUnit7.Picture = LoadPicture("C:\Users\Jithea\Desktop\JITHEA COMPUTER SHOP\icons\off.jpg")
ElseIf unit(8).Visible = True Then
frmItems.cmdUnit8.Picture = LoadPicture("C:\Users\Jithea\Desktop\JITHEA COMPUTER SHOP\icons\off.jpg")
ElseIf unit(9).Visible = True Then
frmItems.cmdUnit9.Picture = LoadPicture("C:\Users\Jithea\Desktop\JITHEA COMPUTER SHOP\icons\off.jpg")
ElseIf unit(10).Visible = True Then
frmItems.cmdUnit10.Picture = LoadPicture("C:\Users\Jithea\Desktop\JITHEA COMPUTER SHOP\icons\off.jpg")
ElseIf unit(11).Visible = True Then
frmItems.cmdUnit11.Picture = LoadPicture("C:\Users\Jithea\Desktop\JITHEA COMPUTER SHOP\icons\off.jpg")
ElseIf unit(12).Visible = True Then
frmItems.cmdUnit12.Picture = LoadPicture("C:\Users\Jithea\Desktop\JITHEA COMPUTER SHOP\icons\off.jpg")
ElseIf unit(13).Visible = True Then
frmItems.cmdUnit13.Picture = LoadPicture("C:\Users\Jithea\Desktop\JITHEA COMPUTER SHOP\icons\off.jpg")
ElseIf unit(14).Visible = True Then
frmItems.cmdUnit14.Picture = LoadPicture("C:\Users\Jithea\Desktop\JITHEA COMPUTER SHOP\icons\off.jpg")
ElseIf unit(15).Visible = True Then
frmItems.cmdUnit15.Picture = LoadPicture("C:\Users\Jithea\Desktop\JITHEA COMPUTER SHOP\icons\off.jpg")
ElseIf unit(16).Visible = True Then
frmItems.cmdUnit16.Picture = LoadPicture("C:\Users\Jithea\Desktop\JITHEA COMPUTER SHOP\icons\off.jpg")
ElseIf unit(17).Visible = True Then
frmItems.cmdUnit17.Picture = LoadPicture("C:\Users\Jithea\Desktop\JITHEA COMPUTER SHOP\icons\off.jpg")
ElseIf unit(18).Visible = True Then
frmItems.cmdUnit18.Picture = LoadPicture("C:\Users\Jithea\Desktop\JITHEA COMPUTER SHOP\icons\off.jpg")
ElseIf unit(19).Visible = True Then
frmItems.cmdUnit19.Picture = LoadPicture("C:\Users\Jithea\Desktop\JITHEA COMPUTER SHOP\icons\off.jpg")
ElseIf unit(20).Visible = True Then
frmItems.cmdUnit20.Picture = LoadPicture("C:\Users\Jithea\Desktop\JITHEA COMPUTER SHOP\icons\off.jpg")
ElseIf unit(21).Visible = True Then
frmItems.cmdUnit21.Picture = LoadPicture("C:\Users\Jithea\Desktop\JITHEA COMPUTER SHOP\icons\Public unit(1 To 23) As New frmTimeoff.jpg")
ElseIf unit(22).Visible = True Then
frmItems.cmdUnit22.Picture = LoadPicture("C:\Users\Jithea\Desktop\JITHEA COMPUTER SHOP\icons\off.jpg")
ElseIf unit(23).Visible = True Then
frmItems.cmdUnit23.Picture = LoadPicture("C:\Users\Jithea\Desktop\JITHEA COMPUTER SHOP\icons\off.jpg")
End If
End SubP.S : I set "Public unit(1 To 23) As New frmTime" which is my other form in the module