مطلوب عدة اكواد ارجو المساعدة

Text1.Alignment = 0 'Left

لليمين

Text1.Alignment = 1 'Right

في الوسط

Text1.Alignment = 2 'Center

وهذا اكواد للقطع والنسخ واللصق والمسح .

' Cut

If TypeOf Screen.ActiveControl Is TextBox Or ComboBox Or RichTextBox Then

Clipboard.SetText Screen.ActiveControl.SelText

Screen.ActiveControl.SelText = ""

End If

' Copy

If TypeOf Screen.ActiveControl Is TextBox Or ComboBox Or RichTextBox Then

Clipboard.SetText Screen.ActiveControl.SelText

End If

' Paste

If TypeOf Screen.ActiveControl Is TextBox Or ComboBox Or RichTextBox Then

Screen.ActiveControl.SelText = Clipboard.GetText()

End If

' Delete

If TypeOf Screen.ActiveControl Is TextBox Or ComboBox Or RichTextBox Then

Clipboard.SetText Screen.ActiveControl.SelText

Screen.ActiveControl.SelText = ""

End If