• Home
 · 
• Custom Controls/Forms/Menus
 · 
• This tiny code enables you to change the picture in picture box at specified timer interval

This tiny code enables you to change the picture in picture box at specified timer interval

This tiny code enables you to change the picture in picture box at specified timer interval

API Declarations



command1 caption-ENTER
right click the imagelists and add 2 pictures on each of them
set timer interval to 1000




Rate This tiny code enables you to change the picture in picture box at specified timer interval

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Private Sub command1_Click()
    Timer1.Enabled = True
End Sub




Private Sub Timer1_timer()
    Static blnImage1 As Boolean
    Static blnImage2 As Boolean
    
    If blnImage1 Then
        Picture1.Picture = ImageList1.ListImages(1).Picture
    Else
        Picture1.Picture = ImageList1.ListImages(2).Picture
    End If
    
    blnImage1 = Not blnImage1
    
    If blnImage2 Then
        Picture2.Picture = ImageList2.ListImages(1).Picture
    Else
        Picture2.Picture = ImageList2.ListImages(2).Picture
   End If
   
    
    blnImage2 = Not blnImage2
    
End Sub