Re: Floating Box for Prices

Tech-Archive recommends: Fix windows errors by optimizing your registry

"Webbiz" <noreply@xxxxxxx> wrote in message news:uoNhZiVZIHA.4828@xxxxxxxxxxxxxxxxxxxxxxx

.. . . Ooops! Forgot to add the example code to my last message . . .

Option Explicit

Private Sub Form_DblClick()
Unload Form2
Unload Me
End Sub

Private Sub Form_Load()
Me.WindowState = vbMaximized
Me.BackColor = vbCyan
Me.Show
Me.Print "Double Click to close"
Form2.Move 1000, 1000, 2000, 1000
Form2.BackColor = vbWhite
Form2.Show , Me
End Sub

Private Sub Form_MouseMove(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
Form2.Move X + 1 * Screen.TwipsPerPixelX, _
Y + 1 * Screen.TwipsPerPixelY
End Sub

Mike


.

Quantcast