Copying to Clipboard through Toolbar

I´m using this code:

VB Code:

Public Sub submnuCopy_Click()
    Clipboard.Clear
    If TypeOf Screen.ActiveControl Is TextBox Then
        Clipboard.SetText Screen.ActiveControl.SelText
    ElseIf TypeOf Screen.ActiveControl Is ComboBox Then
        Clipboard.SetText Screen.ActiveControl.Text
    ElseIf TypeOf Screen.ActiveControl Is PictureBox Then
        Clipboard.SetData Screen.ActiveControl.Picture
    ElseIf TypeOf Screen.ActiveControl Is ListBox Then
        Clipboard.SetText Screen.ActiveControl.Text
    Else
      ' No action makes sense for the other controls.
    End If
 
End Sub

How do I do to make it work through a Toolbar. The problem is that if I click on the Copy button, I'm getting that the Screen.ActiveControl is set to nothing. How do I change this?

Boy, that is a problem. What if you tried setting an Object variable in the ToolBar_MouseMove event. That event would fire before the active control lost focus.

You might then be able to do It TypeOf ObjectVar is TextBox Then...

Greg

Thanks, Greg... that was the kind of trick I was thinking. I was wondering if it existed a more "nice" way for doin' it... but, WHATEVER!! ;)

FYI (Just to comment it) I also need a boolean variable to avoid the MouseMove Event set this variable once I pressed the button, and reset this boolean after it.

Cool!

Greg

I've seen this solved before by keeping a public variable containing the name of the last control that has focus, then you read from that, and use that to decide what control it is