prova questo codice

codice:
Private Sub Combo1_Click()
If Combo1.ListIndex = 0 Then
Label1.FontSize = "8"
Label1.Refresh
End If
If Combo1.ListIndex = 1 Then
Label1.FontSize = "10"
Label1.Refresh
End If

If Combo1.ListIndex = 2 Then
Label1.FontSize = "12"
Label1.Refresh
End If

If Combo1.ListIndex = 3 Then
Label1.FontSize = "14"
Label1.Refresh
End If

If Combo1.ListIndex = 4 Then
Label1.FontSize = "16"
Label1.Refresh
End If

If Combo1.ListIndex = 5 Then
Label1.FontSize = "18"
Label1.Refresh
End If
End Sub

Private Sub Command1_Click()
Label1.FontBold = True
Label1.Refresh
End Sub

Private Sub Command2_Click()
Label1.FontUnderline = True
Label1.Refresh
End Sub

Private Sub Command3_Click()
Label1.FontStrikethru = True
Label1.Refresh

End Sub

Private Sub Command4_Click()
Label1.FontItalic = True
Label1.Refresh

End Sub

Private Sub Form_Load()

j = 8
For i = 0 To 5
Combo1.AddItem (j)
j = j + 2
Next i

End Sub
ciao
fammi sapere
Originariamente inviato da binbum
Salve a tutti!
Vorrei dare la possibilità all'interno di un'applicazione in VB6 di poter scrivere all'interno dei campi testo in vari modi...cioè in grassetto,corsivo,in vari font,insomma come meglio desidera l'utente!
Esiste tale possibilità di farlo?esiste uno script?
Grazie 1000