VB-5 : Phone

Place three images of phone(Click Project -> Components , then select Microsoft Common Control 6.0 ??? ,), one command button and one timer on the form.

A)   Property :

Comman Button : NAME – Command1,CANCEL-True,CAPTION-Exit Timer                 : NAME – Timer1, INTERVAL-500 Image                 :  NAME-Main, PICTURE-(Browse the picture) Image                 :  NAME-Ring1, PICTURE-(Browse the picture) Image                 :  NAME-Ring2, PICTURE-(Browse the picture)

B)   Attaching Code to the Object :

Private Sub Timer1_Timer() Static pbmp As Integer Main.Move Main.Left + 15, Main.Top - 6 If pbmp Then Main.Picture = Ring2.Picture Else Main.Picture = Ring1.Picture End If pbmp = Not pbmp End Sub ------------------------------------------------------------------- Private Sub Command1_Click() End End Sub

Correct this output...

 ========================================================================

Back to Home   &  VB