Minggu, 14 Agustus 2011

Membuat Animasi Bola dengan vb6




Dim FrameCount As Long
Private Sub
Command1_Click()   Timer1.Enabled = False   If LoadGif(Text1,
Image1) Then      FrameCount = 0      Timer1.Interval =
CLng(Image1(0).Tag)      Timer1.Enabled = True   End If End
Sub
Private Sub Command2_Click()    Timer1.Enabled = False
End Sub
Private Sub Command3_Click()    Timer1.Enabled = True
End Sub
Private Sub Form_Load()
  Text1.Text = App.Path

Tidak ada komentar:

Poskan Komentar

Related Posts Plugin for WordPress, Blogger...