Efek Gambar VB6 (Picture Effect VB6)

Efek Gambar ini mungkin bisa dijadikan sebagai awal permulaan pembuatan software video editing.

Kodenya seperti dibawah ini:

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


Private Sub Command3_Click()
Timer1.Enabled = False
End Sub






Private Sub Timer1_Timer()
Picture1.Height = Picture1.Height + 10
Picture1.Width = Picture1.Width + 5
Label1.Width = Label1.Width + 10
Label1.Height = Label1.Width + 5
Label2.Width = Label1.Width + 10
Label2.Height = Label1.Width + 5
End Sub

Downlod Filenya Disini