Membuat Animasi Form

Private Sub Form_Unload(Cancel As Integer)

Animasi

End Sub

Public Sub Animasi()

Dim a As Long

Dim b As Long

a = Me.ScaleHeight

b = Me.ScaleWidth

While Not a = 0

Me.Height = Me.Height - 25

a = a - 1

Wend

While Not b = 0

Me.Width = Me.Width - 25

b = b - 1

Wend

End Sub

No comments:

Post a Comment

Related Posts with Thumbnails