1 2 3 4 5 6 7 8 | Imports System.Runtime.InteropServices <DllImport("user32.dll", EntryPoint:="SetWindowLong")> _ Private Shared Function SetWindowLong(ByVal hWnd As IntPtr, ByVal nIndex As Integer, ByVal dwNewLong As Integer) As Integer End Function Dim WS_EX_TOOLWINDOW As Integer = &H80 Dim GWL_EXSTYLE As Integer = -20 |
1 2 3 | Private Sub frmDragDrop_Load(sender As Object, e As EventArgs) Handles Me.Load Call SetWindowLong(Me.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW) End Sub |
沒有留言:
張貼留言