Happy Codings - Programming Code Examples

Html Css Web Design Sample Codes

CPlusPlus Programming Sample Codes

Asp Programming Sample Codes

C Programming Sample Codes

CSharp Programming Sample Codes

Java Programming Sample Codes

Php Programming Sample Codes

Visual Basic Programming Sample Codes

Visual Basic Programming Code Examples

Visual Basic > Forms Code Examples

Moving a Form With No Title Bar



Moving a Form With No Title Bar

Private Declare Function SendMessage Lib "User32" _
 Alias "SendMessageA" (ByVal hWnd As Long, _
 ByVal wMsg As Long, ByVal wParam As Long, _
 lParam As Any) As Long

Private Declare Sub ReleaseCapture Lib "User32" ()

Const WM_NCLBUTTONDOWN = &HA1
Const HTCAPTION = 2
Private Sub Form_MouseMove(Button As Integer, _
 Shift As Integer, X As Single, Y As Single)

    Dim lngReturnValue As Long

    If Button = 1 Then
        Call ReleaseCapture
        lngReturnValue = SendMessage(Form1.hWnd, _
        WM_NCLBUTTONDOWN, HTCAPTION, 0&)
    End If

End Sub

The only person you are destined to become is the person you decide to be.

Ralph Waldo Emerson

Twenty years from now you will be more disappointed by the things you didn't do than by the things you did.

Mark Twain

A creative man is motivated by the desire to achieve, not by the desire to beat others.

Ayn Rand

If you change the way you look at things, the things you look at will change.

Wayne Dyer

A good goal is like a strenuous exercise - it makes you stretch.

Mary Kay Ash

Lack of direction, not lack of time, is the problem. We all have twenty-four hour days.

Zig Ziglar

Your time is limited, don't waste it living someone else's life. Don't be trapped by dogma, which is living the result of other people's thinking.

Steve Jobs

There are only two ways to live your life. One is as though nothing is a miracle. The other is as though everything is a miracle.

Albert Einstein