Fazer O Caption Do Form Ficar Como Um Painel Digital

[Macêdo]

Colocar no evento Activate do form:

Dim iTempo As Single, bDiminui As Boolean
  Dim iNum As Integer, iLarg As Integer
  Dim iLargT As Integer, Texto As String
  iTempo = Timer
  Do While Not bFechado
    If Timer > iTempo + 0.01 Then
      iTempo = Timer
      Select Case bDiminui
        Case False
          iNum = iNum + 1
          Texto = String(iNum, " ") & _
                  "[color=#FF0000]Caprion do form[/color]"
          iLargT = TextWidth(Texto)
          iLarg = ScaleWidth - 1110
          If iLargT >= iLarg Then
            iNum = iNum - 2
            bDiminui = True
            Texto = String(iNum, " ") & _
                    "Linda"
          End If
        Case Else
          iNum = iNum - 1
          If iNum < 1 Then
            iNum = 1
            Texto = "Mens"
            bDiminui = False
          Else
            Texto = String(iNum, " ") & _
                    "[color=#FF0000]Outro Caption[/color] "
          End If
      End Select
      Caption = Texto
    End If
    DoEvents
  Loop
End Sub

Por no evento unload do form:

bFechado = True

Editado Setembro 27, 2007 por kuroi
Tag CODE