VB Code:
'' StremText sets the caption of a label, but one letter at a time
'' Idea borrowed from Sentience, Code from me
Public Sub StreamText(DestLabel As Label, Text As String, Interval As Long)
Dim X As Long, destCaption As String, lastTick As Long
StopStreamText = False
Do
If (StopStreamText) Then
DestLabel.Caption = ""
Exit Sub
End If
If ((GetTickCount() - lastTick) >= Interval) Then
lastTick = GetTickCount()
X = X + 1
destCaption = destCaption & Mid(Text, X, 1)
DestLabel.Caption = destCaption
If (X = Len(Text)) Then Exit Sub
End If
DoEvents
Loop
End Sub
VB Code:
Private Sub lblMerchant_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblMerchant.ForeColor = &HFF&
If Not alreadyOnALabel Then
alreadyOnALabel = True
StreamText Me.lblStreamText, "Enter the merchant's guild office. From here you may have the opportunity to take on cargo transit missions.", 75
End If
End Sub