Option Explicit
 
Private Const WM_NCLBUTTONDOWN As Long = &HA1&
Private Const HTCAPTION As Long = 2&
 
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 Function ReleaseCapture Lib "user32" () As Long

Private Sub Command1_Click()
    Unload Me
End Sub

Private Sub Form_Load()
    Me.Picture = LoadPicture(App.Path & "\Back.gif") 'lädt das hintergrundbild
    Me.Width = Me.ScaleX(Me.Picture.Width, vbHimetric, vbTwips) 'Passt breite an
    Me.Height = Me.ScaleY(Me.Picture.Height, vbHimetric, vbTwips)'Passt höhe an
    MakeFormTransparent Me, vbMagenta 'Macht magenta transparent
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y _
  As Single)
    ReleaseCapture
    SendMessage Me.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
End Sub