[Sajad]

السلام عليكم

تفضل اخي العزيز

كود :

Imports System.Drawing.Drawing2D
Imports System.Runtime.InteropServices

<DllImport("User32.dll")> _
        Private Shared Function GetDC(hwnd As IntPtr) As IntPtr
        End Function

        <DllImport("User32.dll")> _
        Private Shared Sub ReleaseDC(dc As IntPtr)

Private Sub Button1Click(sender As Object, e As EventArgs)
            Dim desktop As IntPtr = GetDC(IntPtr.Zero)
            Using g As Graphics = Graphics.FromHdc(desktop)
                g.DrawString("sajad", New Font("Arial", 12), Brushes.Blue, 0, 10)
            End Using
            ReleaseDC(desktop)
        End Sub

المثال منقول كان ب#C حولته الى VB