[kafi2030]

الف شكر
اخي ابو رائد على اجابتك

نجخ الامر والحمد لله

الا انه وبسبب حاجتي الى هذا الكود في كل شاشة من شاشات الادخال، قررت ان اضعه في وحدة نمطية، حتى لا اضعه في كل شاشة
وعدلت كلمة Private الى كلمة Public

كود :

#Region " TextBoxMargin "
    <Runtime.InteropServices.DllImport("user32.dll", CharSet:=Runtime.InteropServices.CharSet.Auto)> _
    Public Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal Msg As UInt32, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr
    End Function

    Public Const EM_SETMARGINS = &HD3
    Public Const EC_LEFTMARGIN = &H1
    Public Const EC_RIGHTMARGIN = &H2

    Public Sub TextBoxMargin(ByVal control As TextBox, ByVal leftMargin As Integer, ByVal rightMargin As Integer)
        Dim lParam As Long = &H10000 * rightMargin + leftMargin
        SendMessage(control.Handle.ToInt32, EM_SETMARGINS, EC_LEFTMARGIN Or EC_RIGHTMARGIN, lParam)
    End Sub

#End Region

الا انه اعطى رسالة خطأ

Error 1 Methods in a Module cannot be declared 'Shared'. G:\Kafi_Net_LinQ\kafi\My_function.vb 25 12 kafi

ارجو تصويب الكود السابق، من اجل جعله في وحدة نمطية
والف شكر