[jithea23]

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\off.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 Sub

If someone could shortcut this could i really appreciate it.. XD

P.S : I set "Public unit(1 To 23) As New frmTime" which is my other form in the module

[maj3091]

If you created the command buttons as a control array also then you could loop around them, something like:

dim intLoop as integer
for intLoop = 1 to 23
  If unit(intLoop).Visible then
    frmItems.cmdUnit(intLoop).Picture = LoadPicture(what ever)
  endif
next intLoop