[ناجي إبراهيم]

السلام عليكم...

طبعاً يمكن:

كود :

Private Sub Command1_Click()
    ' ...
    Text1_Click
    ' ...
End Sub

أي باستدعاء إجراء الحدث المطلوب (و ذلك بكتابة اسمه). و إذا كان للإجراء بارامترات فيجب تمرير قيم لتلك البارامترات. مثلاً:

كود :

Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If (Button = vbLeftButton) And (Shift = vbShiftMask) Then
        MsgBox "This is Text1_MouseDown event"
    End If
End Sub

' استدعاء الإجراء السابق مع تمرير قيم البارامترات
Private Sub Command1_Click()
    Text1_MouseDown vbLeftButton, vbShiftMask, 0, 0
End Sub

نرجو الاستفادة و السلام.