-----------------------------------

Studio

Sun Jan 29, 2006 10:39 am


A Few Functions

-----------------------------------

Make unlimited windows:
Private Sub Command1_Click()
Dim Form1 As New Form1
Form1.Visible = True
End Sub

Copy Selected Text:

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

Cut Selected Text:
Private Sub MnuCut_Click()
Clipboard.SetText Text1.SelText
Text1.SelText = ""
End Sub

Paste Text in Clipboard:
Private Sub MnuPaste_Click()
Text1.SelText = Clipboard.GetText
End Sub

Select all text for specific form item:
Private Sub MnuSel_Click()
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub