[wolf1120]

اين انتم ياعضاء المنتدا المحترفين

---

شكر لكم للتعاون تم تعديل المثال


Private Sub Command1_Click()
txtHex.Text = Hex(Label6.Caption)
End Sub

Private Sub txtASCII_Change()
Label6.Caption = txtASCII.Text
Label6.Caption = Label6.Caption + ("2")
End Sub