[vb6] formattare numero a 2 cifre

[LMondi]

Se hai nella form diversi Txt potresti usare una funzione, così:

Public Function Ctr(strTesto As String)
On Error Resume Next
        If Len(strTesto) < 2 Then
                Ctr = CStr("0" & strTesto)
            Else: Ctr = (strTesto)
        End If
End Function
-----------------------------------------
Private Sub Command1_Click()
    Text2.Text = Ctr(Text1.Text)

End Sub

Ciao.