Private Sub Timer1_Timer()
Dim x As Integer
x = 1
If Me.ProgressBar1 >= 10 Or x >= 10 Then
Unload Me
MDIForm1.Show
Timer1.Enabled = False
Else
x = x + 1
x = Me.ProgressBar1
End If
End Sub
Private Sub Timer1_Timer()
ProgressBar1.Value = ProgressBar1.Value + 5
If ProgressBar1.Value = 100 Then
MDIForm1.Show
Timer1.Enabled = False
Unload Me
End If
End Sub
APLX is a very complete implementation of the APL programming language from MicroAPL. The company stopped producing it in 2016 and it has been taken over by Dyalog. While Dyalog ...