Excelente trabajo ||MadAntrax||
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúPrivate Sub Command1_Click()
Timer1.Interval = 80
End Sub
Private Sub Timer1_Timer()
If Timer1.Interval Mod 2 = 0 Then
Form1.Left = Form1.Left - Timer1.Interval
Form1.Top = Form1.Top + Timer1.Interval
Beep
Else
Form1.Left = Form1.Left + Timer1.Interval
Form1.Top = Form1.Top - Timer1.Interval
Beep
End If
Timer1.Interval = Timer1.Interval - 1
End Sub
Cita de: Zeroql en 20 Enero 2007, 05:31 AM
app.major & "." & app.minor "." & app.version
ahi tienes como ver la version de tu programa.
App.Major & "." & App.Minor; "." & App.Revision
Do While Not EOF(1)
Loop