ShowDialogと同じような効果(アプリケーションの一番手前に常に表示)を
Form.Showで実装したいのですが以下を試してみてもうまくいきません

TopMost = True
Form.Activate
<DllImport("user32")> _
Public Shared Function SetForegroundWindow(ByVal hWnd As IntPtr) As Integer
End Function
DeactivateでSetForegroundWindow(Me.Handle)

何か方法はあるのでしょうか？