xp style
i did some changes to the code but the credit is to douglass sheffer. is his code not asking for votes or anything. i am working on xp style controls as well and custom basic controls. in c++ as well as vb. if you like let me know.
the original code is at https://vbcoders.com/vb/scripts/ShowCode.asp?txtCodeId=30137&lngWId=1
Inputs
you need to set the form borderstyle=0
and you need to set the form showintaskbar=true
Private Sub Titlebar1_Closed()
End
End Sub
Private Sub Titlebar1_Maximized()
Me.WindowState = 2
End Sub
Private Sub Titlebar1_Minimized()
Me.WindowState = 1
End Sub
Private Sub Titlebar1_Normal()
Me.WindowState = 0
End Sub
Private Sub Form_Resize()
Titlebar1.Height = Me.Height
Titlebar1.Width = Me.Width
Titlebar1.Top = 0
Titlebar1.Left = 0
End Sub
(6(6 Vote))