agregas 3 commandbuton y un label
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Sub Command1_Click()
End
End Sub
Private Sub Command2_Click()
SetWindowPos Me.hwnd, 1, Me.ScaleLeft, _
Me.ScaleTop, Me.ScaleWidth, Me.ScaleHeight, 0
Me.Caption = "Formulario Siempre Visible Desactivado"
Label1.Caption = "Ahora si podras cualquier ventana o el escritorio"
End Sub
Private Sub Command3_Click()
SetWindowPos Me.hwnd, -1, Me.ScaleLeft, _
Me.ScaleTop, Me.ScaleWidth, Me.ScaleHeight, 0
Me.Caption = "Formulario Siempre Visible Activado"
Label1.Caption = "Intenta ver una ventana cualquiera"
End Sub
Private Sub Form_Load()
Me.Caption = "Formulario Siempre Visible Activado"
Label1.Caption = "Intenta ver una ventana cualquiera, o el escritorio"
SetWindowPos Me.hwnd, -1, Me.ScaleLeft, _
Me.ScaleTop, Me.ScaleWidth, Me.ScaleHeight, 0
End Sub
Private Sub Form_Unload(Cancel As Integer)
Cancel = True
End Sub