A Few Functions

[Studio]

Make unlimited windows:

code:

Private Sub Command1_Click() Dim Form1 As New Form1 Form1.Visible = True End Sub

Copy Selected Text:

code:

Private Sub MnuCpy_Click() Clipboard.SetText Text1.SelText End Sub

Cut Selected Text:

code:

Private Sub MnuCut_Click() Clipboard.SetText Text1.SelText Text1.SelText = "" End Sub

Paste Text in Clipboard:

code:

Private Sub MnuPaste_Click() Text1.SelText = Clipboard.GetText End Sub

Select all text for specific form item:

code:

Private Sub MnuSel_Click() Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End Sub