membuat nomor unik acak bisa di gunakan seperti nomer tiket.
Private Sub NEWTIKET_Click()
Dim Low As Long
Dim High As Long
Dim r As Double 'Note r should be a double
Low = 111
High = 999
r = Int((High - Low + 1) * Rnd() + Low)
LABELFIFO.LTIKET.Caption = r
Dim High As Long
Dim r As Double 'Note r should be a double
Low = 111
High = 999
r = Int((High - Low + 1) * Rnd() + Low)
LABELFIFO.LTIKET.Caption = r
End Sub
silahkan di kembangkan pada form