Dim sNumber$, dNumber#

  dNumber = 34324 / 1024

  sNumber = Format$(dNumber, "0.00")

Option Explicit

Private Sub IncreaseProgress(ByVal Value As Single, ByVal Max As Long)
          Dim snWidth!
          
  With picProgress
    snWidth = .Width / Max
    
    picProgress.Line (10, 10)-(snWidth * Value, .Height - 40), , BF
  End With
End Sub

Private Sub cmdTest_Click()
      Dim i%, snTime!

  For i = 1 To 100
    snTime = Timer
    
    Do While (Timer - snTime) < 0.25
      DoEvents
    Loop
    
    Call IncreaseProgress(i, 100)
  Next
End Sub

Function AddReg(csRecordset As Recordset, FieldIndex As Integer) As Long
        Dim lData&

  Call csRecordset.MoveFirst
  
  Do While Not csRecordset.EOF
    If IsNumeric(csRecordset(FieldIndex)) Then
      lData = lData + CLng(csRecordset(FieldIndex))
    End If
  Loop

  AddReg = lData
End Function

Sub ReadTable(csRecordset As Recordset)
          Dim sData$, i%
          
  Call csRecordset.MoveFirst
  
  Do While Not csRecordset.EOF
    For i = 0 To csRecordset.Fields.Count - 1
      sData = sData & csRecordset.Fields(i) & Chr$(9) & vbCrLf
    Next
    
    Call csRecordset.MoveNext
  Loop
  
  txtTable = sData
End Sub

Const MSG_GREET_BASE = 100  'Es el id base de los saludos.
Const MSG_GREET_CNT = 10  'Cantidad de saludos.
Const MSG_GREET_STATE1_BASE = 5  'Id base relativo a MSG_GREET_BASE de los saludos con el estado de ánimo 1 (supongamos que es deprimido)

Const ACTION_GREETINGS = 1  'Acción de saludar.

Const BOT_STATE_DEP = 1     'Estado deprimido.
Const BOT_STATE_HAPPY = 2   'Estado feliz.
Const BOT_STATE_ANGRY = 3   'Estado enojado.
Const BOT_STATE_NORMAL = 4  'Sin emociones :P

Private iCurState As Integer  'Variable de estado.

Private Sub PerformAction(Action as Integer)
  Select Case Action
    Case ACTION_GREETINGS
    
  End Select
End Sub

Function GetGreet(State As Integer) As String
           Dim iItem%, sMsg$

  Select Case State
    Case BOT_STATE_DEP: iItem = (MSG_GREET_BASE + MSG_GREET_STATE1_BASE) + _
                                (Rnd * (MSG_GREET_CNT - MSG_GREET_STATE1_BASE))
    Case BOT_STATE_NORMAL: iItem = (MSG_GREET_BASE + (Rnd * MSG_GREET_STATE1_BASE))
  End Select

  sMsg = LoadResString(iItem)

  GetGreet = sMsg
End Sub