Demetrio Cassarino
12 lines
306 B
VB.net
12 lines
306 B
VB.net
Public Class OnlyProdOptimizePanelV
|
|
|
|
Private Sub OptimizeBtn_Click(ByVal sender As Object, ByVal e As RoutedEventArgs)
|
|
Dim OptimizeBtn = TryCast(sender, FrameworkElement)
|
|
|
|
If OptimizeBtn IsNot Nothing Then
|
|
OptimizeBtn.ContextMenu.IsOpen = True
|
|
End If
|
|
End Sub
|
|
|
|
End Class
|